﻿<!-- #include file="mymin.asp" -->
<%
If Request.form("submit1") <> "" Then

	if len(Request.Form("wapurl"))<3 then
		Call Error2("<title>出错</title></head><body><div class=""main400"">请输入网站地址！")
	end if

	if Request.Form("wapday")<>"" then
		if isdate(Request.Form("wapday"))=false then
			Call Error2("<title>出错</title></head><body><div class=""main400"">首页倒计时时间设置出错，格式为2008-8-8")
		end if
	end if
	'----------------------------------------------------------------
	'	生成wap.asp文件
	'----------------------------------------------------------------
	dim HU_Config,HU_File

	HU_File= "../../config/wap.asp"'生成wap.asp文件路径

	HU_Config="<"&"%"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapstyle="""&Request.Form("wapstyle")&""" '网站样式"
	HU_Config=HU_Config+chr(13)&chr(10)&"waptitle="""&forQuote(Request.Form("waptitle"))&""" '网站名称"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapurl="""&forQuote(Request.Form("wapurl"))&""" '网站地址"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplogo="""&forQuote(Request.Form("waplogo"))&""" '网站LOGO"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapconst="""&Request.Form("wapconst")&""" '网站排版"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapreport="""&Request.Form("wapreport")&""" '全站公告"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplogin="""&Request.Form("waplogin")&""" '注册登录"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplogined="""&forQuote(Request.Form("waplogined"))&""" '登录显示"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapfavor="""&Request.Form("wapfavor")&""" '首页问候语"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplink="""&Request.Form("waplink")&""" '首页链接"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapdiscuss="""&Request.Form("wapdiscuss")&""" '文章评论"
	HU_Config=HU_Config+chr(13)&chr(10)&"waphits="""&Request.Form("waphits")&""" '文章点击率"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapguest="""&Request.Form("wapguest")&""" '留言显示"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapday="""&Request.Form("wapday")&""" '首页倒计时"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapdayname="""&forQuote(Request.Form("wapdayname"))&""" '倒计时项目名"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapword="""&forQuote(Request.Form("wapword"))&""" '敏感词过滤"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplastc="""&Request.Form("waplastc")&""" '底部显示"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplast="""&forQuote(Request.Form("waplast"))&""" '底部控制"
	HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
	Call savetofile(HU_Config,HU_File)
	Call buildCssByStyle(Request.Form("wapstyle"))
	Response.Write "<meta http-equiv=""refresh"" content=""1;url=index.asp?sid="&sid&"""><title></title></head><body><div class=""main320"">"
	Response.Write "成功设置！正在返回..."
else%>
<title>网站首要配置</title></head><body><div class="main400">
<form method="post" action="wap.asp">
<table>
<tr><td>网站样式:</td><td><select name="wapstyle">
<option value="3">wap2.0宽屏</option>
<option value="2" <% if wapstyle="2" then w "selected"%>>wap2.0窄版</option>
<option value="1" <% if wapstyle="1" then w "selected"%>>wap1.0</option>
</select></td></tr>
<tr><td>站点名称:</td><td><input name="waptitle" type="text" value="<%=nowml(waptitle)%>"/></td></tr>
<tr><td>网站地址:</td><td><input name="wapurl" type="text" value="<%=nowml(wapurl)%>"/></td></tr>
<tr><td>站点LOGO:</td><td><input name="waplogo" type="text" value="<%=nowml(waplogo)%>"/></td></tr>
<tr><td>网站排版:</td><td><select name="wapconst">
<option value="left">居左</option>
<option value="center" <% if wapconst="center" then w "selected"%>>居中</option>
<option value="right" <% if wapconst="right" then w "selected"%>>居右</option>
</select></td></tr>
<tr><td>全站公告:</td><td><select name="wapreport">
<option value="1">显示</option>
<option value="0" <% if wapreport="0" then w "selected"%>>不显示</option>
</select></td></tr>
<tr><td>注册登录:</td><td><select name="waplogin">
<option value="1">显示</option>
<option value="0" <% if waplogin="0" then w "selected"%>>不显示</option>
</select></td></tr>
<tr><td>登录显示:</td><td><input name="waplogined" type="text" value="<%=nowml(waplogined)%>"/></td></tr>
<tr><td>首页问候语:</td><td><select name="wapfavor">
<option value="1">显示</option>
<option value="0" <% if wapfavor="0" then w "selected"%>>不显示</option>
</select></td></tr>
<tr><td>首页链接:</td><td><select name="waplink">
<option value="1">显示</option>
<option value="0" <% if waplink="0" then w "selected"%>>不显示</option>
</select></td></tr>
<tr><td>首页倒计时:</td><td><input name="wapday" type="text" value="<%=wapday%>"/></td></tr>
<tr><td>倒计时名称:</td><td><input name="wapdayname" type="text" value="<%=wapdayname%>"/></td></tr>
<tr><td>文章评论:</td><td><select name="wapdiscuss">
<option value="1">需登录</option>
<option value="0"<%if wapdiscuss=0 then w "selected"%>>不限制</option>
</select></td></tr>
<tr><td>文章点击率:</td><td><select name="waphits">
<option value="1">显示</option>
<option value="0" <% if waphits="0" then w "selected"%>>不显示</option>
</select></td></tr>
<tr><td>留言显示:</td><td><select name="wapguest">
<option value="1">需审核</option>
<option value="0" <% if wapguest="0" then w "selected"%>>不审核</option>
</select></td></tr>
<tr><td>敏感词过滤:</td><td><input name="wapword" type="text" value="<%=wapword%>"/></td></tr>
</table>
底部栏目内容:(支持<a href="../ubbcl.asp?sid=<%=sid%>">UBB</a>)
<select name="waplastc">
<option value="1">全站显示</option>
<option value="0" <% if waplastc="0" then w "selected"%>>首页不显示</option>
</select><br/>
<textarea name="waplast" cols="45" rows="10"><%=nowml(waplast)%></textarea><br/>
<input type="submit" value="保存配置"/>
<input type="hidden" name="submit1" value="1"/>
<input type="hidden" name="sid" value="<%=sid%>"/>
</form>
温馨提示:网站排版仅对wap1.0有效<br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last2%>